﻿<!--#include file="admin/ding.asp"--><%
'
'	七色虎建站系统
'	数据库兼容补丁文件Update.asp
'	用于兼容旧版的数据库，适用v1.2.5 正式版的数据库
'	v1.2.6
'	2011.12.12


On Error Resume Next
myconn.Execute("select top 1 id from 74hu_user")
If Err.Number<>0 Then
	Err.Clear
	myconn.Execute("CREATE TABLE [74hu_friend] ([id] counter primary key,[uid] long,[fid] long,[state] long,[retime] datetime,[remark] text(50))")
	myconn.Execute("CREATE TABLE [74hu_message] ([id] counter primary key,[userid] long,[receive] long,[content] text(200),[savetime] datetime,[state] long,[flag] long)")
	myconn.Execute("CREATE TABLE [74hu_reply] ([id] counter primary key,[userid] long,[content] memo,[postid] long,[savetime] datetime)")
	myconn.Execute("CREATE TABLE [74hu_topic] ([id] counter primary key,[title] text(50),[content] memo,[classid] long,[hit] long,[userid] long,[savetime] datetime,[edittime] datetime,[livetime] datetime,[reply] long,[type] long,[pid] long,[access] long,[edittype] long)")
	myconn.Execute("CREATE TABLE [74hu_broadcast] ([id] counter primary key,[content] text(200),[type] long,[closetime] datetime,[savetime] datetime,[reader] memo)")
	myconn.Execute("CREATE TABLE [74hu_zonemark] ([id] counter primary key,[content] text(200),[savetime] datetime,[userid] long,[zoneid] long,[reply] text(200),[retime] datetime)")
	myconn.Execute("CREATE TABLE [74hu_user] ([id] counter primary key,[name] text(50),[password] text(50),[sid] text(200),[logtime] datetime,[logip] text(200),[hu_level] long,[money] long,[regtime] datetime,[regip] text(200),[sex] long,[remark] text(200),[birthday] datetime,[city] text(50),[topic] long,[reply] long)")
	If Err.Number<>0 Then
		response.write "Help http://74hu.cn"
	Else
		response.write "OK"
	End If
Else
	response.write "No Problem"
End If
CloseConn()
%>